

use LWP::Simple;
my $url = "http://www.whatismyip.com/automation/n09230945.asp";
my $plop = get($url);
print $plop;